APDL Eductation Resources/APDL Eductation Resources.iso/programs/graphics/turtle_2/Procedures/TRIGRID

Text File | 1991-08-04 | 2.6 KB | 206 lines

GRID
TURN INT(310/(COS(PI/6)*NM))
SIZE INT(190/NM)
CLEAR
DISPLAY
COLOUR 1
MOVE1
REPEAT SZ
LINES
END REPEAT
EXLINE
HOME CURSOR
PEN DOWN
COLOUR 3
DISPLAY
END

NOGRID
TURN INT(310/(COS(PI/6)*NM))
SIZE INT(190/NM)
DISPLAY
HOME CURSOR
COLOUR 0
MOVE1
REPEAT SZ
LINES
END REPEAT
EXLINE
HOME CURSOR
PEN DOWN
COLOUR 4
DISPLAY
END

MOVE1
PEN UP
LEFT 90
FORWARD (TR+1)*.5*COS(PI/6)*NM
LEFT 90
FORWARD SZ*.5*NM
LEFT 90
END

LINE
REPEAT INT((TR-1)*.5)
PEN DOWN
FORWARD 0
PEN UP
FORWARD 2*NM*COS(PI/6)
END REPEAT
PEN DOWN
FORWARD 0
PEN UP
END

LINES
LINE
EXDOT
BACKWARDS (TR-1)*NM*COS(PI/6)
LEFT 30
FORWARD NM
RIGHT 30
LINE
BACKWARDS (TR-1)*NM*COS(PI/6)
RIGHT 30
BACKWARDS NM
LEFT 30
END

EXDOT
FORWARD 2*NM*COS(PI/6)
PEN DOWN
FORWARD 0
PEN UP
BACKWARDS 2*NM*COS(PI/6)
END

EXLINE
LINE
EXDOT
END

INFO
CLEAR
DISPLAY
COLOUR 3
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE TRIGRID
BACKWARDS 15
WRITE TRIGRID provides you with a triangular spotty
BACKWARDS 10
WRITE grid which makes it easier to draw pictures
BACKWARDS 10
WRITE that look solid or 3-D.
BACKWARDS 15
WRITE Type NM 20 <return> then GRID <return> to draw
MORE
END

MORE
BACKWARDS 10
WRITE the grid. The dots will be 20 units apart.
BACKWARDS 15
WRITE When you have finished drawing you can remove
BACKWARDS 10
WRITE the dots from your drawing by typing NOGRID.
BACKWARDS 15
WRITE It is usually a good idea to plan your work
BACKWARDS 10
MORE2
END

MORE2
WRITE carefully on paper beforehand.
BACKWARDS 20
WRITE Type EG1 <return> to see an example.
BACKWARDS 20
WRITE Type IDEAS <return> for more ideas.
BACKWARDS 20
DISPLAY
END

IDEAS
CLEAR
DISPLAY
COLOUR 6
PEN UP
LEFT 90
FORWARD 100
RIGHT 90
FORWARD 70
WRITE IDEAS
BACKWARDS 20
WRITE Draw some things ... patterns, a cube, your name, ...
BACKWARDS 20
WRITE You can draw a grid with dots that are closer
BACKWARDS 10
WRITE together or further apart by first typing NM
BACKWARDS 10
MORE3
END

MORE3
WRITE followed by a number. For example, NM 30 <return>
BACKWARDS 10
WRITE then GRID <return> will draw a grid with dots
BACKWARDS 10
WRITE that are 30 units apart.
BACKWARDS 20
MORE4
END

MORE4
WRITE Typing FILL before drawing on the grid can
BACKWARDS 10
WRITE produce some interesting effects.
BACKWARDS 20
WRITE
BACKWARDS 20
DISPLAY
END

EG1
NM 20
GRID
PEN DOWN
REPEAT 3
FORWARD NM
LEFT 60
FORWARD NM
BACKWARDS NM
LEFT 60
FORWARD NM
RIGHT 120
FORWARD 3*NM
LEFT 60
FORWARD NM
LEFT 60
FORWARD NM
BACKWARDS NM
RIGHT 60
BACKWARDS NM
LEFT 60
FORWARD NM
RIGHT 60
FORWARD NM
LEFT 120
FORWARD 4*NM
LEFT 60
FORWARD NM
LEFT 120
FORWARD 4*NM
BACKWARDS 4*NM
RIGHT 60
FORWARD 2*NM
LEFT 60
RIGHT 120
END REPEAT
NOGRID
END